BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Q-R/RTFcard1.0.cpt/RTFcard1.0/RTF Import 1.0/cards.xml

Text File | 1992-09-24 | 35KB | 301 lines

card_3026.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3026</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4493.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2719</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3212.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>13</left>
            <top>8</top>
            <right>245</right>
            <bottom>67</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>24</textSize>
        <textStyle>outline</textStyle>
        <name>RTF Import</name>
        <script>on mouseUpglobal Dest,HeadTblput empty into Destput empty into HeadTbl--put the name of the destination field of the RTF text--into the variable Destput "Import" into Dest-- This code runs ONLY on HC 2.0 and up.-- To be cautious, we check the version of HyperCard running.if the version < 2.0 thenanswer "Sorry, you need HyperCard 2.0 or better." with "OK"exit mouseUpend ifanswer file "Pick an RTF file." of type "TEXT"if it is empty then exit mouseupset the cursor to watchlock Screenput it into MyFileopen file MyFileread from file MyFile until NumToChar(3) --EOFput it into FilteredText--First, we separate the different bodies of the RTF file--and we generate some reference tables from them--The first body is the definition with the font tableput char 1 to offset("}}",FilteredText) of FilteredText after Header--We find the metaCharactersrepeat with MyChar = 1 to (the length of Header)set cursor to busyif (char MyChar of Header) = "{" or (char MyChar of Header) = "}"then put RETURN after HeadTblelseif (char MyChar of FilteredText) = "\"then put RETURN after HeadTblelse put char MyChar of FilteredText after HeadTblend ifend repeat--This gives us a table with items separated by returnsif (word 1 of HeadTbl) ‚â†"rtf1" or (word 3 of HeadTbl) ‚â†"deff2"thenanswer "This is not a supported version of RTF file." with "OK"close file MyFileexit mouseupend if--We checked for the right type of RTF file--We can now eliminate the header and keep the font table onlydelete line 1 to 8 of HeadTblrepeat (the number of lines of HeadTbl)set cursor to busyput offset(RETURN&RETURN,HeadTbl) into DblRetif DblRet ‚↠0 thendelete char DblRet to (DblRet + 1) of HeadTblput RETURN before char DblRet of HeadTblelseexit repeatend ifend repeatrepeat with LineNo = 1 to (the number of lines of HeadTbl div 2)set cursor to busydelete word 1 of line (LineNo * 2) of HeadTbldelete last char of line (LineNo * 2) of HeadTblend repeat--We eliminate the Header from the FilteredTextdelete char 1 to (offset("}}",FilteredText) + 1) of FilteredText--The second body is the colour table--Since HC doesn't support colour yet, we simply eliminate--it from the FilteredText and ignore this bodydelete char 1 to offset("}",FilteredText) of FilteredText--The third and fourth body are the stylesheet table--and the info sheet table.--Since supporting this feature would demand very complex--programming structures for text rarely bigger than--16 384 caracters, we decided to ignore it too although--we must set the standard style to the font of the--style "Normal" with size 12, no style.--The info doesn't serve any purpose in HC, we drop it too.put empty into NormalFontput empty into fontIDrepeat with thischar = (offset("\f",FilteredText) + 1) to ¬¨(offset("\f",FilteredText) + 8) -- an ID bigger than that is impossibleset cursor to busyif char thischar of FilteredText = "\" ¬¨or char thischar of FilteredText = " " thenexit repeatelseput char thisChar of FilteredText after fontIDend ifend repeatset the textFont of cd fld Dest to HandleFont(fontID)set the textSize of cd fld Dest to 12set the textStyle of cd fld Dest to plaindelete char 1 to (offset("}}",FilteredText) + 1) of FilteredTextdelete char 1 to (offset("}}",FilteredText) + 1) of FilteredText--The fifth body is the general page reference table--Since HC fields do not support layouts, we drop it toodelete char 1 to (offset("{",FilteredText)-1) of FilteredText--Finally, the last part is the encoded text--We decode it to express all the special characters of--the Macintosh character set while giving it the right--set of Font, style and size--Note: It is imperative to remove any carriage returns--in the encoded text since it is hardcoded as "\par" anyway.repeat (length(FilteredText))set cursor to busyput offset(RETURN, FilteredText) into Spotif Spot ‚↠0 thendelete char Spot of FilteredTextelseexit repeatend ifend repeatdelete last char of FilteredText--INTERPRETING CHARACTERSput HandleChars(FilteredText) into cd fld Dest-- if it's a header or footer, we eliminate it.repeat (length(cd fld Dest) div 2)set cursor to busyput offset("\header",cd fld Dest) into headlocput offset("\footer",cd fld Dest) into footlocif (footloc ‚↠0) or (headloc ‚↠0) thenif (headloc ‚↠0) thendelete char headloc to (headloc + 8) of cd fld Destend ifput offset("\footer",cd fld Dest) into footlocif (footloc ‚↠0) thendelete char footloc to (footloc + 8) of cd fld Destend ifelseexit repeatend ifend repeatrepeat ((the length of cd fld Dest) div 2) -- maximum encodingset cursor to busyif (offset("{",cd fld Dest) ‚↠0) and (offset("{",cd fld Dest) ‚↠0) then--INTERPRETING FONT, SIZE AND STYLES--interpreting sizeput offset("{",cd fld Dest) into lAccolput offset("}",cd fld Dest) into rAccolput empty into MySizeif lAccol ‚↠0 thenput char lAccol to rAccol of cd fld Dest into tempStringput offset("\fs",tempString) into MetaCharLocif MetaCharLoc ‚↠0 thenif (char (MetaCharLoc + 7) of tempString) = " " thenput char (MetaCharLoc + 3) to (MetaCharLoc + 6) of tempString ¬¨into tempSizeend ifif (char (MetaCharLoc + 6) of tempString) = " " thenput char (MetaCharLoc + 3) to (MetaCharLoc + 5) of tempString ¬¨into tempSizeend ifif (char (MetaCharLoc + 5) of tempString) = " " thenput char (MetaCharLoc + 3) to (MetaCharLoc + 4) of tempString ¬¨into tempSizeend ifif (char (MetaCharLoc + 4) of tempString) = " " thenput (char (MetaCharLoc + 3) of tempString) into tempSizeend ifput tempSize div 2 into MySizeset the textsize of char lAccol to rAccol of cd fld Dest to MySizedelete char (MetaCharLoc + lAccol - 1) to ¬¨(MetaCharLoc + lAccol + length(TempSize) + 1) of cd fld Destend ifend if--interpreting fontput empty into MyFontIDput offset("{",cd fld Dest) into lAccolput offset("}",cd fld Dest) into rAccolput char lAccol to rAccol of cd fld Dest into tempStringput offset("\f",tempString) into MetaCharLocif (MetaCharLoc ‚↠0) and ¬¨(char (MetaCharLoc + 2) of tempString is in "1234567890") then-- We have to check the extent of the ID code (1,2,3,4 or 5 digits)if char (MetaCharLoc + 7) of tempString = " "¬¨or char (MetaCharLoc + 7) of tempString = "\"thenput char (MetaCharLoc + 1) to (MetaCharLoc + 6)¬¨of tempString into MyFontIDend ifif char (MetaCharLoc + 6) of tempString = " "¬¨or char (MetaCharLoc + 6) of tempString = "\"thenput char (MetaCharLoc + 1) to (MetaCharLoc + 5)¬¨of tempString into MyFontIDend ifif char (MetaCharLoc + 5) of tempString = " "¬¨or char (MetaCharLoc + 5) of tempString = "\"thenput char (MetaCharLoc + 1) to (MetaCharLoc + 4)¬¨of tempString into MyFontIDend ifif char (MetaCharLoc + 4) of tempString = " "¬¨or char (MetaCharLoc + 4) of tempString = "\"thenput char (MetaCharLoc + 1) to (MetaCharLoc + 3)¬¨of tempString into MyFontIDend ifif char (MetaCharLoc + 3) of tempString = " "¬¨or char (MetaCharLoc + 3) of tempString = "\"thenput char (MetaCharLoc + 1) to (MetaCharLoc + 2)¬¨of tempString into MyFontIDend ifset the textFont of char lAccol to rAccol of cd fld Dest ¬¨to HandleFont(MyFontID)delete char (lAccol + MetaCharLoc - 1) to ¬¨(lAccol + MetaCharLoc + length(MyFontID) - 1) of cd fld Destend if-- interpreting stylesput offset("{",cd fld Dest) into lAccolput offset("}",cd fld Dest) into rAccolput char lAccol to rAccol of cd fld Dest into tempstringput HandleStyles(tempstring) into theStyleset the textstyle of char lAccol to rAccol of cd fld Dest to theStyle--delete char 1 of tempStringput offset("\b",tempstring) into BoldLocif BoldLoc ‚↠0 thenif char (BoldLoc + 2) of tempstring = " "thendelete char (BoldLoc + lAccol) to ((BoldLoc + lAccol) + 2) of cd fld Destdelete char BoldLoc to (BoldLoc + 2) of tempStringelsedelete char (BoldLoc + lAccol) to (BoldLoc + lAccol + 1) of cd fld Destdelete char BoldLoc to (BoldLoc + 1) of tempStringend ifend ifput offset("\i",tempstring) into ItalicLocif ItalicLoc ‚↠0 thenif char (ItalicLoc + 2) of tempstring = " "thendelete char (ItalicLoc + lAccol) to ((ItalicLoc + lAccol) + 2) of cd fld Destdelete char ItalicLoc to (ItalicLoc + 2) of tempStringelsedelete char (ItalicLoc + lAccol) to (ItalicLoc + lAccol + 1) of cd fld Destdelete char ItalicLoc to (ItalicLoc + 1) of tempStringend ifend ifput offset("\ul",tempstring) into ULineLocif ULineLoc ‚↠0 thenif char (ULineLoc + 3) of tempstring = " "thendelete char (ULineLoc + lAccol) to ((ULineLoc + lAccol) + 3) of cd fld Destdelete char ULineLoc to (ULineLoc + 3) of tempStringelsedelete char (ULineLoc + lAccol) to (ULineLoc + lAccol + 2) of cd fld Destdelete char ULineLoc to (ULineLoc + 2) of tempStringend ifend ifput offset("\outl",tempstring) into OutLineLocif OutLineLoc ‚↠0 thenif char (OutLineLoc + 5) of tempstring = " "thendelete char (OutLineLoc + lAccol) to ((OutLineLoc + lAccol) + 5) of cd fld Destdelete char OutLineLoc to (OutLineLoc + 5) of tempStringelsedelete char (OutLineLoc + lAccol) to (OutLineLoc + lAccol + 4) of cd fld Destdelete char OutLineLoc to (OutLineLoc + 4) of tempStringend ifend ifput offset("\shad",tempstring) into ShadowLocif ShadowLoc ‚↠0 thenif char (ShadowLoc + 5) of tempstring = " "thendelete char (ShadowLoc + lAccol) to ((ShadowLoc + lAccol) + 5) of cd fld Destdelete char ShadowLoc to (ShadowLoc + 5) of tempStringelsedelete char (ShadowLoc + lAccol) to (ShadowLoc + lAccol + 4) of cd fld Destdelete char ShadowLoc to (ShadowLoc + 4) of tempStringend ifend ifput offset("{",cd fld Dest) into lAccolput offset("}",cd fld Dest) into rAccolif (lAccol ‚↠0) or (rAccol ‚↠0)thenif (lAccol ‚↠0) and (rAccol ‚↠0) thendelete char lAccol of cd fld Destdelete char (rAccol - 1) of cd fld Destend ifif (lAccol = 0) and (rAccol ‚↠0) thendelete char rAccol of cd fld Destend ifif (lAccol ‚↠0) and (rAccol = 0) thendelete char lAccol of cd fld Destend ifelseexit repeatend ifelseexit repeatend ifend repeatrepeat (length(cd fld Dest) div 2)set cursor to busyput offset("\bslash",cd fld Dest) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetacharLoc + 6) of cd fld Destput "\" before char MetaCharLoc of cd fld Destelseexit repeatend ifend repeatrepeat (length(cd fld Dest) div 2)set cursor to busyput offset("\lacc",cd fld Dest) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetacharLoc + 4) of cd fld Destput "{" before char MetaCharLoc of cd fld Destelseexit repeatend ifend repeatrepeat (length(cd fld Dest) div 2)set cursor to busyput offset("\racc",cd fld Dest) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetacharLoc + 4) of cd fld Destput "}" before char MetaCharLoc of cd fld Destelseexit repeatend ifend repeat-- ELIMINATING NON-SUPPORTED ENCODINGunlock screenrepeat (length(cd fld Dest) div 2)set cursor to busyput empty into tempStringput offset("\",cd fld Dest) into MetaCharLocif MetaCharLoc ‚↠0 thenrepeat with theChar = (MetaCharLoc + 1) to length(cd fld Dest)set cursor to busyif (char TheChar of cd fld Dest = " ") or ¬¨(char TheChar of cd fld Dest = "\") thenexit repeatelseput char TheChar of cd fld Dest after tempStringend ifend repeatdelete char MetaCharLoc to (MetaCharLoc + length(tempString)) of ¬¨cd fld Destif char MetaCharLoc of cd fld Dest = " " thendelete char MetaCharLoc of cd fld Destend ifelseexit repeatend ifend repeat--The Filtered Text remainsclose file MyFileunlock Screenend mouseUpfunction HandleCharacters TheString--interpreting special charactersput 1 into theStrCharif (char (theStrChar +2) of TheString)="8" thenif (char (theStrChar +3) of TheString)="1" then return "√Ö"if (char (theStrChar +3) of TheString)="2" then return "√á"if (char (theStrChar +3) of TheString)="3" then return "√â"if (char (theStrChar +3) of TheString)="7" then return "√°"if (char (theStrChar +3) of TheString)="8" then return "√†"if (char (theStrChar +3) of TheString)="9" then return "√¢"if (char (theStrChar +3) of TheString)="a" then return "√§"if (char (theStrChar +3) of TheString)="b" then return "√£"if (char (theStrChar +3) of TheString)="c" then return "√•"if (char (theStrChar +3) of TheString)="d" then return "√ß"if (char (theStrChar +3) of TheString)="e" then return "√©"if (char (theStrChar +3) of TheString)="f" then return "√®"end ifif (char (theStrChar +2) of TheString)="9" thenif (char (theStrChar +3) of TheString)="0" then return "√™"if (char (theStrChar +3) of TheString)="1" then return "√´"if (char (theStrChar +3) of TheString)="2" then return "√≠"if (char (theStrChar +3) of TheString)="3" then return "√¨"if (char (theStrChar +3) of TheString)="4" then return "√Æ"if (char (theStrChar +3) of TheString)="5" then return "√Ø"if (char (theStrChar +3) of TheString)="6" then return "√±"if (char (theStrChar +3) of TheString)="7" then return "√≥"if (char (theStrChar +3) of TheString)="8" then return "√≤"if (char (theStrChar +3) of TheString)="9" then return "√¥"if (char (theStrChar +3) of TheString)="a" then return "√§"if (char (theStrChar +3) of TheString)="b" then return "√µ"if (char (theStrChar +3) of TheString)="c" then return "√∫"if (char (theStrChar +3) of TheString)="d" then return "√π"if (char (theStrChar +3) of TheString)="e" then return "√ª"if (char (theStrChar +3) of TheString)="f" then return "√º"end ifif (char (theStrChar +2) of TheString)="a" thenif (char (theStrChar +3) of TheString)="0" then return "‚Ć"if (char (theStrChar +3) of TheString)="1" then return "¬∞"if (char (theStrChar +3) of TheString)="2" then return "¬¢"if (char (theStrChar +3) of TheString)="3" then return "¬£"if (char (theStrChar +3) of TheString)="4" then return "¬ß"if (char (theStrChar +3) of TheString)="6" then return "¬∂"if (char (theStrChar +3) of TheString)="7" then return "√ü"if (char (theStrChar +3) of TheString)="8" then return "¬Æ"if (char (theStrChar +3) of TheString)="9" then return "¬©"if (char (theStrChar +3) of TheString)="a" then return "‚Ñ¢"if (char (theStrChar +3) of TheString)="b" then return "¬¥"if (char (theStrChar +3) of TheString)="c" then return "¬®"if (char (theStrChar +3) of TheString)="d" then return "‚â†"if (char (theStrChar +3) of TheString)="e" then return "√Ü"if (char (theStrChar +3) of TheString)="f" then return "√ò"end ifif (char (theStrChar +2) of TheString)="b" thenif (char (theStrChar +3) of TheString)="0" then return "‚àû"if (char (theStrChar +3) of TheString)="1" then return "¬±"if (char (theStrChar +3) of TheString)="2" then return "‚â§"if (char (theStrChar +3) of TheString)="3" then return "‚â•"if (char (theStrChar +3) of TheString)="4" then return "¬•"if (char (theStrChar +3) of TheString)="5" then return "¬µ"if (char (theStrChar +3) of TheString)="6" then return "‚àÇ"if (char (theStrChar +3) of TheString)="7" then return "‚àë"if (char (theStrChar +3) of TheString)="8" then return "‚àè"if (char (theStrChar +3) of TheString)="9" then return "œÄ"if (char (theStrChar +3) of TheString)="a" then return "‚à´"if (char (theStrChar +3) of TheString)="b" then return "¬™"if (char (theStrChar +3) of TheString)="c" then return "¬∫"if (char (theStrChar +3) of TheString)="d" then return "Œ©"if (char (theStrChar +3) of TheString)="e" then return "√¶"if (char (theStrChar +3) of TheString)="f" then return "√∏"end ifif (char (theStrChar +2) of TheString)="c" thenif (char (theStrChar +3) of TheString)="0" then return "¬ø"if (char (theStrChar +3) of TheString)="1" then return "¬°"if (char (theStrChar +3) of TheString)="2" then return "¬¨"if (char (theStrChar +3) of TheString)="3" then return "‚àö"if (char (theStrChar +3) of TheString)="4" then return "Δí"if (char (theStrChar +3) of TheString)="5" then return "‚âà"if (char (theStrChar +3) of TheString)="6" then return "‚àÜ"if (char (theStrChar +3) of TheString)="7" then return "¬´"if (char (theStrChar +3) of TheString)="8" then return "¬ª"if (char (theStrChar +3) of TheString)="9" then return "‚Ķ"if (char (theStrChar +3) of TheString)="e" then return "≈í"if (char (theStrChar +3) of TheString)="f" then return "≈ì"end ifif (char (theStrChar +2) of TheString)="d" thenif (char (theStrChar +3) of TheString)="6" then return "√∑"if (char (theStrChar +3) of TheString)="7" then return "‚óä"if (char (theStrChar +3) of TheString)="8" then return "√ø"if (char (theStrChar +3) of TheString)="9" then return "≈∏"if (char (theStrChar +3) of TheString)="a" then return "/"if (char (theStrChar +3) of TheString)="b" then return "‚Ǩ"if (char (theStrChar +3) of TheString)="c" then return "‚Äπ"if (char (theStrChar +3) of TheString)="d" then return "‚Ä∫"if (char (theStrChar +3) of TheString)="f" then return "Ô¨Ç"end ifif (char (theStrChar +2) of TheString)="e" thenif (char (theStrChar +3) of TheString)="0" then return "‚Ä°"if (char (theStrChar +3) of TheString)="1" then return "¬∑"if (char (theStrChar +3) of TheString)="3" then return "‚Äû"if (char (theStrChar +3) of TheString)="4" then return "‚Ä∞"if (char (theStrChar +3) of TheString)="5" then return "√Ç"if (char (theStrChar +3) of TheString)="6" then return "√ä"if (char (theStrChar +3) of TheString)="7" then return "√Å"if (char (theStrChar +3) of TheString)="8" then return "√ã"if (char (theStrChar +3) of TheString)="9" then return "√à"if (char (theStrChar +3) of TheString)="a" then return "√ç"if (char (theStrChar +3) of TheString)="b" then return "√é"if (char (theStrChar +3) of TheString)="c" then return "√è"if (char (theStrChar +3) of TheString)="d" then return "√å"if (char (theStrChar +3) of TheString)="e" then return "√ì"if (char (theStrChar +3) of TheString)="f" then return "√î"end ifif (char (theStrChar +2) of TheString)="f" thenif (char (theStrChar +3) of TheString)="0" then return "Ô£ø"if (char (theStrChar +3) of TheString)="1" then return "√í"if (char (theStrChar +3) of TheString)="2" then return "√ö"if (char (theStrChar +3) of TheString)="3" then return "√õ"if (char (theStrChar +3) of TheString)="4" then return "√ô"if (char (theStrChar +3) of TheString)="5" then return "ƒ±"if (char (theStrChar +3) of TheString)="a" then return "Àô"if (char (theStrChar +3) of TheString)="b" then return "Àö"end ifend HandleCharactersfunction HandleStyles Stringset cursor to busyput offset("\b",String) into BoldLocput offset("\i",String) into ItalicLocput offset("\ul",String) into ULineLocput offset("\outl",String) into OutLineLocput offset("\shad",String) into ShadowLocput offset("\plain",String) into PlainLocput empty into TheStyleif PlainLoc ‚↠0 thenreturn "plain"end ifif (BoldLoc = 0) and (ItalicLoc = 0) and (ULineLoc = 0) and¬¨(OutLineLoc = 0) and (ShadowLoc = 0) thenreturn "plain"elserepeat with PresentChar = 1 to (length(String))if char PresentChar of String = " " thenexit repeatelseput char PresentChar of String after TheStyleend ifend repeatdelete char 1 of TheStyleput offset("\b",TheStyle) into BoldLocif BoldLoc ‚↠0 thenif char (BoldLoc + 2) of TheStyle = " "thendelete char BoldLoc to (BoldLoc + 2) of TheStyleelsedelete char BoldLoc to (BoldLoc + 1) of TheStyleend ifput "bold," before char BoldLoc of TheStyleend ifput offset("\i",TheStyle) into ItalicLocif ItalicLoc ‚↠0 thenif char (ItalicLoc + 2) of TheStyle = " "thendelete char ItalicLoc to (ItalicLoc + 2) of TheStyleelsedelete char ItalicLoc to (ItalicLoc + 1) of TheStyleend ifput "italic," before char ItalicLoc of TheStyleend ifput offset("\ul",TheStyle) into ULineLocif ULineLoc ‚↠0 thenif char (ULineLoc + 3) of TheStyle = " "thendelete char ULineLoc to (ULineLoc + 3) of TheStyleelsedelete char ULineLoc to (ULineLoc + 2) of TheStyleend ifput "underline," before char ULineLoc of TheStyleend ifput offset("\outl",TheStyle) into OutLineLocif OutLineLoc ‚↠0 thenif char (OutLineLoc + 5) of TheStyle = " "thendelete char OutLineLoc to (OutLineLoc + 5) of TheStyleelsedelete char OutLineLoc to (OutLineLoc + 4) of TheStyleend ifput "outline," before char OutLineLoc of TheStyleend ifput offset("\shad",TheStyle) into ShadowLocif ShadowLoc ‚↠0 thenif char (ShadowLoc + 5) of TheStyle = " "thendelete char ShadowLoc to (ShadowLoc + 5) of TheStyleelsedelete char ShadowLoc to (ShadowLoc + 4) of TheStyleend ifput "shadow," before char ShadowLoc of TheStyleend ifdelete last char of TheStylerepeat with ThisItem = 1 to the number of items of TheStyleif char 1 of item ThisItem of TheStyle = "\" thendelete item ThisItem of TheStyleend ifend repeatend ifreturn TheStyleend HandleStylesfunction HandleChars container--interpreting special charactersrepeat (the length of container div 2) --The maximum encoded sizeset cursor to busyput offset("\'",container) into MetaCharLocif MetaCharLoc ‚↠0 thenput HandleCharacters(char MetaCharLoc to (MetaCharLoc + 3) of container)¬¨into tempAltChardelete char MetaCharLoc to (MetaCharLoc + 3) of containerput tempAltChar before char MetaCharLoc of containerelseexit repeatend ifend repeat--interpreting carriage returns and page changerepeat (the length of container div 2)set cursor to busyput offset("\par",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 4) of containerput RETURN before char MetaCharLoc of containerelseexit repeatend ifend repeatrepeat (the length of container div 2)set cursor to busyput offset("\page",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 5) of containerelseexit repeatend ifend repeat--interpreting tabulations--Note: tabulations move the cursor from field to field, it is--not possible to enter a real tab in a field. To fix this,--we enter four spaces to simulate a tab character.repeat (the length of container div 2)set cursor to busyput offset("\tab",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 3) of containerput "    " before char MetaCharLoc of containerelseexit repeatend ifend repeat--interpreting bulletsrepeat (the length of container)set cursor to busyput offset("\bullet",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 7) of containerput "‚Ä¢" before char MetaCharLoc of containerelseexit repeatend ifend repeat--interpreting emdashrepeat (the length of container div 2)set cursor to busyput offset("\emdash",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 7) of containerput "‚Äì" before char MetaCharLoc of containerelseexit repeatend ifend repeat--interpreting endashrepeat (the length of container div 2)set cursor to busyput offset("\endash",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 7) of cd fld Destput "‚Äî" before char MetaCharLoc of containerelseexit repeatend ifend repeat--interpreting left simple quotesrepeat (the length of container div 2)set cursor to busyput offset("\lquote",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 7) of containerput "‚Äò" before char MetaCharLoc of containerelseexit repeatend ifend repeat--interpreting left double quotesrepeat (the length of container div 2)set cursor to busyput offset("\ldblquote",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 10) of containerput "‚Äú" before char MetaCharLoc of containerelseexit repeatend ifend repeat--interpreting right simple quotesrepeat (the length of container div 2)set cursor to busyput offset("\rquote",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 7) of containerput "‚Äô" before char MetaCharLoc of containerelseexit repeatend ifend repeat--interpreting right double quotesrepeat (the length of container div 2)set cursor to busyput offset("\rdblquote",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 10) of containerput "‚Äù" before char MetaCharLoc of containerelseexit repeatend ifend repeat--We substitute the left accolade to avoid confusionrepeat (the length of container div 2)set cursor to busyput offset("\{",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char (MetaCharLoc + 1) of containerput "lacc" after char MetaCharLoc of containerelseexit repeatend ifend repeat--we substitute the right accolade to avoid confusionrepeat (the length of container div 2)set cursor to busyput offset("\}",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char (MetaCharLoc + 1) of containerput "racc" after char MetaCharLoc of containerelseexit repeatend ifend repeat--We substitute the backslash to avoid confusionrepeat (the length of container div 2)set cursor to busyput offset("\\",container) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char (MetaCharLoc + 1) of containerput "bslash" after char MetaCharLoc of containerelseexit repeatend ifend repeatreturn containerend HandleCharson HandleCharsLeftglobal Destrepeat (the length of cd fld Dest div 2)set cursor to busyput offset("\qj",cd fld Dest) into MetaCharLocif MetaCharLoc ‚↠0 thendelete char MetaCharLoc to (MetaCharLoc + 2) of cd fld Destelseexit repeatend ifend repeatend HandleCharsLeftfunction HandleFont FontIDglobal HeadTblrepeat with LineNo = 1 to ((the number of lines of HeadTbl) div 2)set cursor to busyif line ((LineNo * 2) - 1) of HeadTbl = FontID thenput line (LineNo * 2) of HeadTbl into MyFontreturn MyFontend ifend repeat-- Note : if the Font is not available on the foreign system,-- HyperCard defaults to Geneva.end HandleFont</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>13</left>
            <top>72</top>
            <right>466</right>
            <bottom>265</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Times</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Import</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>405</left>
            <top>9</top>
            <right>436</right>
            <bottom>66</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>902</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go</name>
        <script>on mouseUpgo prev cardend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>435</left>
            <top>9</top>
            <right>466</right>
            <bottom>66</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20098</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go</name>
        <script>on mouseUpgo homeend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>246</left>
            <top>34</top>
            <right>280</right>
            <bottom>67</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>14767</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go</name>
        <script>on mouseUpshow card fld 2end mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>13</left>
            <top>7</top>
            <right>466</right>
            <bottom>68</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseUphide meend mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>4</id>
        <text>Yet to check:-styles</text>
    </content>
    <content>
        <layer>card</layer>
        <id>9</id>
        <text><span class="style40">o learn more on the process of importing Rich Text File into HyperCard 2.0, read the script of the button "RTF Import".</span><span class="style1"></span><span class="style32">-click me to remove message-</span></text>
    </content>
    <name></name>
    <script></script>
</card>


card_4255.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>4255</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4699.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2719</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3212.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>28</left>
            <top>13</top>
            <right>336</right>
            <bottom>260</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>342</left>
            <top>219</top>
            <right>450</right>
            <bottom>258</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26425</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go</name>
        <script>on mouseUpgo next cardend mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text><span class="style31">TF Import </span><span class="style1"></span><span class="style32">HyperTalk 2.0</span><span class="style33"> script for RTF importing brought to you by</span><span class="style1"></span><span class="style34">Francis Keith Bourgoin</span><span class="style1"></span><span class="style13">for the</span><span class="style1"></span><span class="style37">Club Macintosh de Québec (CMQ) </span><span class="style1"></span><span class="style38">the largest french Macintosh Clubin North America</span><span class="style1"></span><span class="style13">To contact</span><span class="style39">Keith Bourgoin</span><span class="style13">(AOL : FKBourgoin)(InterNet : [e-mail])</span><span class="style39">Club Macintosh de Québec</span><span class="style13">[phone]</span></text>
    </content>
    <name></name>
    <script></script>
</card>